home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Visual Basic Source Code
/
Visual Basic Source Code.iso
/
vbsource
/
pathfi1a
/
module1.bas
< prev
next >
Wrap
BASIC Source File
|
1999-09-04
|
776b
|
26 lines
Attribute VB_Name = "Module1"
'Bitblt function we will need for the prog
Public Declare Function bitblt Lib "gdi32" _
Alias "BitBlt" (ByVal hDestDC As _
Long, ByVal X As _
Long, ByVal Y As _
Long, ByVal nWidth As _
Long, ByVal nHeight As _
Long, ByVal hSrcDC As _
Long, ByVal xSrc As _
Long, ByVal ySrc As _
Long, ByVal dwRop As Long) As Long
'Constants for the BitBlit and StretchBit functions
Public Const MERGEPAINT = &HBB0226
Public Const SRCINVERT = &H660046
Public Const SRCERASE = &H440328
Public Const SRCAND = &H8800C6
Public Const SRCCOPY = &HCC0020
Public Const SRCPAINT = &HEE0086